0 

APPENDIX A 



DIGITAL SIGNAL PROCESSING WITH EFFICIENT POLYPHASE RECURSIVE ALL-PASS FILTERS 

fred herris*, Maxiroilien d'Oreye de Lantremange*, and A.G. Constantinides** 

Department of Electrical and Computer Engineering, San Diego State University, 

San Diego, California 92182-0190, USA. 
Signal Processing Section, Department of Electrical Engineering, 

Imperial College of Science, Technology and Medicine, Exhibition Road, 

London SW7-2BT, England. 



ABSTRACT! Digital filters can be realized with remarkably small* computational 
burden as polyphase recursive all-pass networks. These networks are formed as a 
sum of M parallel all-pass subfilters with phase shifts selected to add construc- 
tively in the passband and destructively in the stopband. The design technique we 
present here starts with prototype M-path recursive all-pass filters obtained by 
a new optimizing algorithm (described in detail elsewhere). These filters are 
operated with combinations of all-pass transformations, resampling, and cascading 
options. We demonstrate a number of designs using the new algorithm along with 
examples of filtering systems obtained by the techniques presented. 



1. INTRODUCTION 

A standard finite Impulse response (FIR) 
filter can be modeled, as indicated in Fig. 
1, as the weighted summation of the contents 
of a tapped delay line. This, summation is 
shown in (1) and the transfer function of 
this filter is shown in (2). 
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FIGURE 1. TAPPED DELAY LINE FIR FILTER . 

We note the frequency selective characteris- 
tics of the filter output is due to the , 
phase shift between successive samples in : 
the tapped delay line. This phaser summation j 
is shown in Fig. 2 for two different fre- 
quencies. 

i 
i 

Note that it is the phase shift, and not the 
weighting terms which is responsible for the 
frequency dependent gain of the filter. The , 
weighting terms are used primarily to con- 
trol passband width and stopband attenuation 
of the filter. An idea derived from spatial : 
beamforming (known as beam spoiling) (1) and 
! from signal synthesis (peak-to-rms control) 
(2) is to use structured'* phase shifts (with 
arbitrary amplitudes) to accomplish the same 
goal . 



FIGURE 2. PRABOR SUMMATION OF FIR FILTER 
OUTPUT FOR TWO FREQUENCIES 

The class of filters we describe here re- 
places the weights of the FIR filter with 
all-pass subfilters which exhibit unity gain 
with frequency dependent phase shift. In 
anticipation of the polyphase structure, the 
all-pass subfilters are, as shown in (3) and 
Fig. 3, first order polynomials in where 
M is the number of taps in the structure. 
This composite form is indicated in Fig. 4a 
with a modified form reflecting a polyphase 
structure in 4b. The transfer function of 
this structure is shown in (4). 




FIGURE 3. H-TM ORDER ALL-PASS BUBFILTER 
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Fig. T show examples of equal ripple designs 
obtained from this new algorithm for ft 2- 
path and for a 5-path filter with two and 
three all-pass stages per path respectively. 
Interacting constraints on the optimal de- 
sign (described in the aforementioned paper) 
limit the possible number of stages per path 
for the 5-path filter to the sequences 
(1,1,1,1,0), (2,2,2,1,1), (3,3,2,2,2) r etc., 
so that the optimum 5-path filter uses three 
less stages than allocated to the design. 
Similarly the 2-path filter is limited to 
the sequences (1,0), (1,1), (2,1), (2,2), 
(2,3), (3,3). etc. 

2. TWO PATH FILTERS 

We find a wealth of interesting properties 
and clever applications for this structure 
even if we limit our discussion to a 2-path 
filter. As designed, the 2-path filter Is a 
half bandwidth filter with the 3-dB band- 
width at 0.25 f t . If the zeros are restricted 
to the half sampling frequency, the filter 
identical to a half bandwidth Butterworth 
obtained by the standard warped bilinear 
transform. For this special case, the real 
parts of the root locations go to zero. If 
the zeros are optimized for equal ripple 
stop band behavior the filter becomes a 
constrained Elliptic filter. The constraints 
are related to a property of complementary 
all-pass filters. We define the all-pass 
sections for the 2-path filter as H 0 (e) and 
H,(8) and, as indicated in Fig. 8, the scaled 
by one-half sum and difference of these 
paths by *A(0) and B(6) , the lowpass and 
highpass filters, respectively. We know that 
the all-pass sections satisfy (5) from which 
ve derive the power relationship between the 
lowpass and highpass filters shown in (6). 
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FIGURE 8. COMPLEMENTARY LOWPASS AND HIGHPASS 
FILTERS FROM 2-PATH ALL- PASS NETWORK 

K(e)|* « |h,(e)i* = i (5) 

I A(8) | ? +| B(8) |* « |0.5[H 0 (e)+H,(e)}|* (6a) 

+ |0.5(H 0 (e)-H,(G))| 2 

-O.5(|H 0 (9)| ? +|H | (e)| 2 ] (6b) 

- 1 (6c) 

Now to interpret how this relationship 
impacts the 2-path filter. For the comple- 
mentary filters we define the minimum pass- 
band gain of by l-«i and the peak stopband 
gain by e ? . Substituting these gains in (6) 



we obtain (7) . 

(1-e,)* + (c,) ? « 1 (7a) 

(1-e,)' = 1 - ( C> ) 2 (7b) 

1 - 2c, + (<,)' - 1 - [t z ) 7 (7c) 




For small e., we can ignore (c.) 1 which leads ! 
to (8). 

<i - 0-5 (e,)> (8) j 

Thus if the stopband attenuation is selected 1 
to be 0.001 (60.0 dB), the passband ripple 
is 0.000 000 5 (126.0 dB) or the passband 
minimum gain is 0.999 999 5 (-0.000 000 22 
dB) . As can be seen these filters have a 
remarkably flat passband. We conclude that 
the 2-path equal ripple stopband filters ore j 
elliptic filters with coupled passband end I 
stopband ripple with -3.0 dB gain at 0.25 f . I 
There ere two significant differences be- j 
tween the 2-path and the standard implemen- I 
tation of the equivalent elliptic filter. 
The first is a four-to-one savings in multi- 
plications; a fifth order half bandwidth 2- I 
path filter requires only two coefficients 
as opposed to the direct _ implementation 
which requires eight (scaling Included). The 
second is that all-pass structures exhibit 
unity gain to internal states hence do not 
require extended precision registers to 
store internal states as do standard imple- 
mentations. 

As with any filter design, the transition 
bandwidth can be traded for out of band 
attenuation for a fixed order or transition 
bandwidth can be steepened for a fixed 
attenuation by increasing filter order. 
Khile nomographs exist for the elliptic and 
Butterworth filters which can be implemented 
by the 2-path structure, a simple approxi- 
mate relationship for the equal ripple 
filter is given in (9), where A (dB) is 
attenuation in dB, Af is transition band- 
width, and N is the total number of all-pass 
segments in the filter. 

A(dB) « (72 Af + 10) N (9) 



2A. BILBERT TRANSFORM FILTERS 

The Hilbert Transform (HT) can be thought of 
as a particular type of half band filter. It 
is modelled and Implemented by a wide band 
90' phase shifting network. The HT is often 
used In DSP applications to form the analyt- 
ic signal a(n) as shown in (10), a signal 
with spectra limited to the positive (or 
negative) frequency band. 

a(n) « x(n) + j x(n) (10) 

We can cast the 2-path filter as a HT in a 
number of ways but a simple method, akin to 
the transformation performed on a half band 
FIR filter (4), is a heterodyne of the half 
band filter to the quarter sample frequency. 
If the original filter response and trans- 
form are denoted by h(n) and H(Z) respec- 
tively, then the heterodyned expressions can 
be easily seen to be those in (11). 

h(n) -> h(n) e ,m/ * - h(n) (j) n (11a) 

H(2) «> H(Z e' T/ *) - H(j 2) (lib) 

The transformation of a half band filter to 
an HT filter is accomplished by replacing 
each Z* ! of the transfer function with -jZ*** 
Since the polynomials of the all-pass sub- 
filters are second order, this transfor- 



mation can be accomplished by changing the 
Bign of the coefficient used In each all- 
pnoe nub filtor and by associating a -} with 
the lower path delay. These operations ere 
indicated in Fig. 9. 



of Fig. 7. Is used for up sampling ve would 
perform 3 multiplications per output point. 





FIGURE 9. HILBERT TRANSFORM ALL- PASS FILTER 
REALIZATION AO TRANSFORMED HALF BAND FILTER 

2B. INTERPOLATION AND DECIMATION FILTERS 

Any half bandwidth filter can be used to 
perform 2-to-l resampling (up or down, 
popularly identified as interpolation and 
decimation) . Finite impulse response (FIR) 
filters can be operated with a polyphase 
partition which does not process inserted 
zero input points (up-sampling) or compute 
the discarded output points (down sampling) . 
While this option is not available for the 
general recursive filter, it is an option 
for the recursive all-pass H-path filter. 
The M-path filter can be partitioned into 
polyphase segments because of the interac- 
tion of the internal delays of the M-th 
order subfilters and the delay line of each 
path. This relationship is particularly easy 
to see for the 2-path filter. An impulse 
applied at index n 0 makes a contribution to 
the output at the same time via the upper 
path while an output is not available from 
the lower path till the next index due to 
its extra delay Z* 1 ! During that same next 
index, the upper path offers no contribution 
to the output because there is no Z" 1 path 
associated with its Z' 2 polynomial. Thus the 
filter delivers successive samples of its 
impulse response from alternate paths of the 
filter. 

Down sampling is accomplished by delivering 
alternate input samples to each path of the 
filter operating at the reduced input rate. 
Since the delay of the second path is ac- 
complished by the input commutation the 
physical delay element in that path is re- 
moved. The filtered and down sampled out-put 
is generated by the sum or difference of the 
two path responses. Note that the compu- 
tation rate per input sample point is half 
that of the non resampled filter, thus if 
the 2-path filter of Fig. 7 is used for down 
sampling we would perform 3 multiplications 
per input point. 

Up sampling is accomplished by reversing the 
down sampling process. This entails deliver- 
ing the same input to the two paths and corn- 
mutating between their outputs. Both forms 
of resampling are shown in Fig. 10. As in 
the previous example, when the 2-path filter 
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FIGURE 10. RESAMPLING 2-PATH ALL- PASS FILTER 

The cascade operation of down sampling and 
up sampling of the complementary outputs 
performs two band maximally decimated quad- 
rature mirror filtering and reconstruction 
(5). 

Cascading multiple stages of up sampling or 
down sampling filters can achieve high order 
sample rate change with remarkably small 
workload per data point. For instance, a 1- 
to-16 up sampler with 96 dB dynamic range 
for a signal with cutoff frequency of 0.4 f, 
requires 2-path filters with successively 
smaller number of all-pass stages of orders 
(3,3), (2,2), (2,1), and (1,1). This re- 
quires a total of 42 multiplications for 16 
outputs, for an average workload of approxi- 
mately 2.7 operations per output point. 

2C. ITERATED POLYPHASE ALL-PASS FILTERS 

The all-pass networks described earlier are 
formed by polynomials in Z and specifically 
for the 2-path filters Z*. A useful trans- 
formation is to replace each Z' 1 with Z* w , to 
obtain higher order filters exhibiting K— 
fold spectral replication of the original 
filter. For K=2, the half band filter cen- 
tered at DC becomes a pair of quarter band 
filters centered at DC and f % /2 . An example 
of spectral replication for the iterated 
filter is shown in Fig. 11. 




FIGURE 11. SPECTRUM OF ITERATED 2-PATH 
FILTER: POLYNOMIALS IN 3** 



Note that this transformation scales the 
prototype filter** spectrum by 1/K, reducing 
both pnsnband width end transition width. 
Thus very steep transition bandwldths and 
narrow filters can be realized by the use of 
low order polynomials of degree 2K obtained 
via delay elements. Energy in the replicated 
spectral regions can be removed by a se- 
quence of filters | incorporating various 
degrees of resampling and iterated filters 
of reduced degree. 

3. EFFICIENT ALL- PASS FILTER BANKS . 

Efficient spectral partitioning can be ob- 
tained by cascading and resampling the out- 
puts of iterated lovpass and HT filters. For 
Instance the spectra of a four channel 
filter bank, centered on the four quadrants 
can be formed with a complementary half band 
filter followed by a pair of resaropled HT 
filters as shown on the left side of Fig. 
12. The workload for this 70 dB attenuation 
filter set is 3 multiplications per output 
channel. 

A four channel filter bank straddling the 
previous set (ie. centered on the four 
cardinal directions) can be formed with an 
iterated by two complementary half band 
filter followed by both a complementary half 
band resampled filter and a resampled HT 
filter. This spectra of this filter set is 
shown on the right side of Fig. 12. The 
workload for this 70 dB attenuation filter 
set is 2 multiplications per output channel. 



M 
M 
Bl 

Aim 

Mil 
Mat 
Max 



Jzzj 



1_J 



» \~\ i rT~\ S H 
s 1 rhu rr-\ I 

t. | a— t— k I 



V 1 L 



d _ 



t 



-K ! A 



t=L 



J 



K 1 A ! I 
hAi i Ld 



1 I — ^ S I r„, IrHl ! I 

1 i t-\ » « 1 I ?n-M 



FIGURE 12. SPECTRA OF FOUR CHANNEL QUADRANT 
CENTERED AND CARDINAL CENTERED FILTER BANK 

4. OTHER ALL-PAB8 TRANSFORMATIONS 

The prototype complementary all-pass filter 
set can also be transformed to filters of 
arbitrary bandwidth and of arbitrary center 
frequency by standard all-pass transforma- 
tions 16). The lowpass transformation for 
the half band filter is shown in (12). 



b + Z' 



1 + b Z" 



l-tan(6 0 /2) 
l+tanfe^) 



(12) 



This transformation warp3 the frequency 
variable of the filter so that the -3 dB 



point resides at frequency 0 O .. When 9 0 is 
different from r/2 the second order polyno- 
mials of the all-pan eubfllters acquire) 

coefficients for the Z' x term. The resulting 
filter requires two multiplications per pole 
rero pair which is still half the workload 
of the traditional canonic forms. In addi- 
tion, the pole at the origin (due to the 
delay of the second path) transforms to a 
first order all-pass filter thus converting 
an inactive pole to an active one requiring 
an additional first order stage. Fig. 13 
presents the frequency varped version of the 
filter presented In Fig. 7a. Both this 
filter and its complement are available from 
the warped structure. 




FIGURE 13. LOWPASS TRANSFORMATION OF A LI- 
PASE FILTER 

The bandpass transformation is presented in 
(13). 



z* 1 



1 - c 2 



- c - costs,) (13) 



This transformation warps the frequency 
variable of the filter so that the center 
frequency resides at frequency 0 r If 0. is 
equal to 0.0 this transformation is equiva- 
lent to the Iterated transformation de- 
scribed in 2.C. For any other frequency, 
this transformation converts the second 
order all-pass filters to fourth order all- 
pass structures. This requires four multi- 
plications to form four pole-zero pairs of 
the resultant filter which is still half the 
workload of the traditional canonic forms. 
In addition, the transformation converts the 
real pole (which is an image of the pole 
originally at the origin) to a pair of com- 
plex poles requiring a second order all-pass 
stage. Fig. 14 presents the frequency warped 
version of the filter presented in Fig. 14. 
As earlier, both this filter and its comple- 
ment are available from the varped struc- 
ture . 

Other transformations and geometries (7J can 
be used with the digital all-pass structure 
and the reader is directed to the bibliogra- 
phy of the listed papers for a profusion of 
options. 
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FIGURE 4A. ALL- PASS FILTER STRUCTURE 




ML (Z") 



Y(Z) = X(Z) 



(3) 



FIGURE 4B. POLYPHASE ALL- PAS 8 STRUCTURE 

a n + Z* 
1 + a n Z"" 
M-l 

^H n (Z-") Z* n . (4) 
n=0 



The roots of (3), the M-th roots of -a and 
its reciprocal, are equally spaced about the 
origin as shown in Fig. 5 for the indicated 
degrees M. Note that ve realize M poles and 
M zeros per multiplication in the all-pass 
stage. This means for instance that a 2-path 
filter offers two poles and two zeros per 
multiplication as opposed to one pole (or 
zero) per multiplication for the standard 
(factored or unfactored) canonic forms. 









As ve go around the unit circle we visualize 
that the all-pn»» aubfilters exhibit rapid 
change in pha»e in the neighborhood of iach 
pole-zero pair* By proper choice of the pole 
positions, the phase shift of each leg of 
the M path filter can be made to match or t:o 
differ by multiples of 2w/H over selected 
spectral intervals. This is suggested in 
Fig. 6 for M-2 and M«4 . The coefficients of 
the all-pass subfilters can be determined by 
standard algorithms [3) or by a new algo- 
rithm developed by harris and d'Oreye and 
reported in a paper recently submitted for 
publication (Signal Processing). 




FIGURE 6. TYPICAL PHASE RESPONSES OF ALL- 
PASS FILTER PATHS, AND CORRESPONDING MAGNI- 
TUDE RESPONSES. 
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FIGURE 5. POLE-ZERO DI flTRIBUTION FOR M-TH 
ORDER ALL-PA88 SUBFILTERS 



FIGURE 7. POLE-ZERO PLOT AND MAGNITUDE 
RESPONSE FOR 2-PATH AND 5-PATH 
POLYPHASE ALL-PASS NETWORK 




FIGURE 14. BANDPASS TRANSFORMATION OF 
ALL-PASS FILTER 

5 . CONCLUSIONS 

We have reviewed the form and utility of the 
all-pass polyphase filter structure. We then 
presented a number of all-pass transforma- 
tions which could be easily applied to M- 
path all-pass filter sets. The emphasis has 
been on 2-path networks but the material is 
easily extended to arbitrary M. We alluded 
to a new set of algorithms for designing M- 
path filters which will be reported in an 
upcoming Signal Processing paper. We have 
demonstrated capabilities of this algorithm 
by using it to generate the examples pre- 
sented in this paper. 

The primary advantage of these structures is 
very low workload for a given filtering 
task. Other papers [8, 9, 10} have discussed 
the low sensitivity to finite arithmetic 
exhibited by these filters. The primary 
impediment to the use of these filters is 
their newness and the lack of available 
design methods for computing filter weights. 
This paper (along with excellent surveys 
listen in the bibliography) address the 
first problem and a forthcoming paper ad- 
dresses the second. 
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void OxiLSL_NC( 



int 

static int 
static float 



int 
int 
int 
int 
int 
int 
int 



reset, 

passes, 

*signal_l, 

*signal_2, 

*signal_3, 

*target_i, 

* targe t_2) 



{ 



*i m, n f contraction; 



i, ii, 

*s_a, *s_b, *s_c, 
Delta_sqr, scale, noiseref; 



*out_a, *out 



if ( reset « TRUE) { 



s_a 
s_b 
s_c 
out_a 
out_c 
factor 
scale 



■ signal_l; 
15 signal_2, 
= signal_3; 
= target_l; 
» target 2; 
- 1.5; ~ 
«= 1.0 /4160.0; 



/* noise canceller initialization at tine t=0 */ 



nc[0] .berr = 0.0; 
nc[0] .Gamma = 1. o; 



for(m=0; m<NC_CELLS; m++) { 



nc[m] .err_a 
nc[mj ,err_b 
nc(m) .Roh_a 
ncfmj .Roh_c 
nc[m). Delta 
nc(m] .Fswsqr 
nc[m] .Bsvsqr 



0.0; 

0.0, 
0.0; 
0.0, 
0.00001; 
0.00001; 



END INITIALIZATION 



for(k=0; k<passes; k++) { 



contraction «= FALSE; 
for(m=0; m< NC_CELLS; m++) { 

nc(m) .berrl - nc[m) .berr; 

nc(m].Bsvsqrl = nc[m) . Bswsqr; 



=====* j 



/* Update delay elements 



noise_ref 

nc(0) .erra 
nc[0].err b 



factor * log(l.o - <*s_a) * scale) 
logfl.O - (*s_b) * scale) ; 
log(1.0 - (*s_b) * scale); 
log (l.o - (*s_c) * scale); 



++s_a ; 
++s_b; 
++s_c; 

nc[0] .f err 
nc(OJ .berr 
nc(0) • Fsvsqr 
nc[0] .Bsvsqr 



noise_ref ; 
noise_ref ; 

LAMBDA * nc(0). Fsvsqr + noise_ref * noise_ref; 
nc(OJ .Fsvsqr; 



/* Order Update */ 

for(n«l;( n < NCCELLS) (contraction — FALSE); n++) { 

/* Adaptive Lattice Section */ 

m - n-1; 
ii« n-l; 



nc(m). Delta *« 
ncfmj. Delta +*= 
Delta_sqr « 



LAMBDA; 

nc[m). berrl * nc[m].ferr / nc (m) .Gamma ; 
nc(m). Delta * nc(m). Delta; 



nc(n).fref = -nc(m] . Delta / nc( m) . Bsvsqrl ; 
nc(n).bref = -nc (m) . Delta / nc(m] . Fsvsqr ; 

nc(n).ferr = nc(m].ferr + nc(n).fref * nc[m) .berrl; 
nc(n).berr = nc(m]. berrl + nc(n].bref * nc[m).ferr; 

nc[n). Fsvsqr «= nc (m] . Fsvsqr - Delta_sqr / nc{m J .Bsvsqrl; 
nc[n].Bsvsqr = nc(m) . Bsvsqrl - Delta_sqr / nc(m] .Fsvsqr ; 

if( (nc(n). Fsvsqr + nc [n] . Bsvsqr) > 0.00001 | | (n < 5) ) { 

nc[n).Ganuna « nc (m] . Gamma - nc(ra). berrl * nc[m). berrl / nc[m) .Bsvsqrl j 
if (nc(nj .Gamma < 0.05) nc(n] .Gamma « 0.05; 
if (nc(n) .Gamma > 1.00) nc[n). Gamma =1.00; 

/* Joint Process Estimation Section */ 

nc(m].Roh_a *= LAMBDA; 

ncfmj. Roh_a +*= nc(m).berr * nc[m).err_a / nc(m). Gamma ; 
nc(m).k_a « nc(m].Roh_a / nc(m) .Bswsqr; 
nc(n).err_a «= nc(m].err_a - nc(m].k_a * nc(m).berr; 

nc[m].Roh_c LAMBDA; 

nc[m).Roh_c nc(m).berr * nc(m).err_b / nc[m). Gamma ; 
nc[m).k_c - nc[m).Roh_c / nc (m] . Bsvsqr ; 
nc[n].err_b «= nc(m).err_b - nc[m].k_c * nc[m).berr; 

) 

else { 

contraction « TRUE; 
for(i-n; i<NC_CELLS; i++) { 

0.0; 
0.0; 
0.0; 
0.0; 
0.0; 

0. 00001; 
0. 00001; 



nc(i] .err_a 
nc(i) .Roh_a 
nc(i). rr_b 
nc( i) .Roh_c 
nc[i) .Delta 
nc[i) .Fsvsqr 
nc[i) .Bsvsqr 
nc[ i) .Bsvsqrl - 0.00001; 



} 

> 

> 

*out_a++ «= (int)( (-exp(nc(ii) .erra) +1.0) / scale) ; 
*out_c++ (int) ( (-exp(nc[ii) .err_b) +1.0) / scale) ; 

) 

) 

f a********************* Least Square Lattice *************************** 
t****************************************************************************/ 



* % | APPENDIX C 

/* Normalized Adaptive Noise Canceler */ 

/include <stdlib.h> 
#include <math.h> 



#define TRUE 
#define FALSE 

#define FLOAT 3 2 
#define INT32 
#define VOID 

#define FABSF 
#define SQRTF 

#define MAX(a,b) (a) > 
#define MIN(a,b) (a) < 



1 
0 

float 
long int 
void 

f abs 
sqrt 



(b) 
(b) 



7 



(a) 
(a) 



(b) 
(b) 



#define MIN_VAL 
#define MAX_DEL 
#define MINDEL 
#define MAX_RHO 
#define MINRHO 
#define MIN_BSERR 

typedef struct { 



0. 01 

0.999999 
-0. 999999 

2.0 
-2 . 0 

1E-15 



} 



FLOAT3 2 


berr ; 




FLOAT3 2 


berr_l 




FLOAT3 2 


delta; 




FLiOAT3 2 


err; 




FLOAT 3 2 


f err ; 




FLO AT 3 2 


gamma; 




FLOAT3 2 


gamma_ 


i; 


FLO AT 3 2 


rho; 




FLOAT3 2 


delta_ 


i; 


FLOAT3 2 


Bserr ; 




FLO AT 3 2 


Bserr_ 


i; 


LANC CELLS; 







{ 



cc; 



typedef struct 
INT32 
FLOAT 3 2 lambda; 
FLOAT 3 2 min_error ; 

LANC_CELLS *cells ; 
LANC Context; 



} 



extern LANC 
LANC_Init( 
INT3 2 
FLO AT 3 2 
FLOAT 3 2 



Context * 



num_cells, 
lambda f 
min error) ; 



extern VOID 
LANC_Done( 

LANC Context 



/* number of cells 

/* put in value for lambda 

/* parameter 

/* point to array of ANC_CELLS 



/* number of cells 
/* lambda param 
/* min error 



*c) ; 



extern VOID 
LANC_Reset ( 

LANC Context *anc) ; 



extern FLOAT32 
LANC_Calc( 

LANC_Context *anc f /* input, context handle */ 

FL0AT32 rips, /* input, noise plus signal */ 

FL0AT3 2 noise) ; /* input, noise reference */ 

/* The following macros provide efficient access to the lattice */ 



#def ine 


ANC_CELL_SIZE 


11 










AD CiJVCx \J 






















#def ine 


XDELTA 2 










#def ine 


XDELTA_1 3 












xGAMMA 4 










fuel xi* 


Xvj/\TXrl/\ X Z> 










#def ine 


XBSERR 6 










#def ine 


XBSERR1 7 










ruei ine 


Xt*KK o 










Fuel ine 


Xf HiXvK Z7 










raei ine 


XJKilO 1U 










#def ine 


berr 


( * \ 




+ 


xBERR) ) 


fuel if iti 


Ir JUci X X 


( * 1 


,P 


-4- 


yRFRP 1 — ANC OFT J, ^17.V\ } 


/define 


P~berr — 


(* 


[P 




XBERR~~ - ANC~~CELL~SIZE) ) 


#def ine 


berr_l 


(* 


[P 




XBERR1) ) 


#def ine 


Bserr 


(* 


(P 




XBSERR) ) 


#def ine 


Bserr_l 


(* 


CP 




XBSERR 1) ) 




XT JJOCL i. -1. 


( * 




+ 


xBSERR 1 - ANC CELL SIZE) ) 


#def ine 


P delta 


( * 




+ 


XDELTA - ANC CELL SIZE) ) 


#def ine 


delta 


(* 


f o 




XDELTA) ) 


#def ine 


delta 1 


(* 


(p 




XDELTA_1) ) 


#def ine 


P_delta_l 


(* 


(p 


+ 


XDELTA_1 - ANC_CELL_SIZE) ) 


#def ine 


err 


(* 


(p 


+ 


XERR) ) 


#def ine 


N_err 


(* 


(p 


+ 


XERR + ANC_CELL_SIZE) ) 


#def ine 


P_f err 


(* 


(p 




XFERR - ANC CELL SIZE) ) 


#def ine 


f err 


(* 


(p 


+ 


XFERR) ) 


#def ine 


gamma 


(* 


(p 




XGAMMA) ) 


#def ine 


P_gamma 


(* 


(p 




XGAMMA - ANC CELL SIZE) ) 


#def ine 


N_gamma 


(* 


(p 




XGAMMA + ANC CELL SIZE) ) 


#def ine 


P_gamma_l 


( * 


(p 




XGAMMA 1 - ANC CELL SIZE) ) 


#def ine 


gamma_l 


( * 


(p 




XGAMMA_1) ) 


#def ine 


rho 


(* 


(P 




xRho) ) 


Name 


: LANC Init 











Abstract: Create an ANC context 



/* number of cells */ 
/* lambda param */ 
/* min error */ 

LANC_Context *anc; /* context */ 

anc = (LANC_Context *)malloc(sizeof (LANC Context) ) ; 
assert (anc != NULL) ; 
anc->cc = num_cells; 
anc->lambda = lambda; 
anc->min_error = min_error; 

anc->cells = (LANC_CELLS * ) malloc (sizeof (LANCCELLS) * (numcells + 2 
assert (anc->cells != NULL) ; 

return (anc) ; 

} 

/* 

Name: LANCJReset 

Abstract: Reset an ANC context 



extern LANC_Context * 

LANC_Init( 

INT3 2 num_cells, 
FLO AT 3 2 lambda, 
FL0AT3 2 min_error) 



extern VOID 
LANC_Reset ( 

LANC_Context *anc) { 



FL0AT3 2 
INT3 2 



*p; 

m; 



p = (FLO AT 3 2 *)anc->cells; 

for (m = 0; m <= anc->cc; m++) { 

rho - 0.0, 

err = 0 • 0 ; 

ferr = 0.0, 

berr = 0.0j 

berr_l = 0. 0 < 

delta = 0.0; 

delta_l = 0.0; 

Bserr = anc->rain_error; 

Bserr_l = anc->min_error; 

gamma = MIN_VAL; 

gamma_l = MIN_VAL; 

p ~ += ANC_CELL_SIZE; 

} 

p = (FLOAT 3 2 *)anc->cells; 
gamma = 1.0; 
gamma 1 = 1.0; 



/* Cell # 0 special case 



*/ 



/* 

Name : LANC_Done 

Abstract: Delete an ANC context 



extern VOID 
LANc_Done ( 

LANC Context 



} 

/* 



*anc) { 



f ree(anc->cells) ; 
free(anc) ; 



Name: LANC_Calc 
Abstract : Calculate 



FLOAT 3 2 
IANC_Calc( 

LANC_Context 

FLOAT32 

FLOAT3 2 



{ 



INT32 
FLOAT 3 2 
FLO AT 3 2 
FLOAT 3 2 
INT32 



*anc, 
nps, 
noise) 

m; 

*p; 

B,F,B2,F2; 
qd2 , qd3 ; 
output_cell; 



/* input, context handle 
/* input, noise plus signal 
/* input, noise reference 



*/ 
*/ 
*/ 



/* Update time delay elements in cell structure 

p = (FLO AT 3 2 *)anc->cells; 

for (m = 0; in <= anc->cc; m++) { 

gamma_l = gamma; 

berr_l = berr; 

Bserr_l = Bserr; 

delta_l = delta; 

p += ANC_CELL__SI ZE ; 



/* Handle Cell # 0 

p = (FLO AT 3 2 *)anc->cells; 

Bserr = anc->lambda * Bserr_l + noise * noise; 
Bserr = MAX(Bserr, MIN_BSERR) ; 

ferr = noise / SQRTF (Bserr) ; 
ferr = MAX (ferr, MIN_DEL) ; 
ferr * MIN(ferr, MAX_DEL) ; 

berr = ferr; 

rho = anc->lambda * SQRTF (Bserr_l / Bserr) * rho + berr * nps; 



N_err = nps - rho * berr; 

output_cell = anc->cc - 1; /* Assume last cell for starter */ 

for (m = 1; m < anc->cc; m++) { 
p += ANC_CELL_SIZE; 

B = SQRTF (1.0 - P_berr_l * P_berr_l) ; B2 = 1.0/B; 



1 o 

F = SQRTF(l.o - P_ferr * P_ferr ); F2 = l.O/F; 

P_delta = P_delta_l * F * B + P_berr_l * P_ferr; 
P_delta = MAX(P_delta, MIN_DEL) ; 
P_delta = MIN(P_delta, MAX_DEL) ; 
qd3 = 1.0 - Pdelta * P_delta; 
qd2 = 1.0 / SQRTF (qd3) ; 

ferr = (P_ferr - P_delta * P_berr_l) * qd2 * B2; 
ferr = MAX (ferr, MIN_DEL) ; 
ferr = MIN(ferr, MAX_DEL) ; 

berr = (P_berr_l - P_delta * P_ferr ) * qd2 * F2; 
berr = MAX (berr, MIN_DEL) ; 
berr = MIN(berr, MAXDEL) ; 

gamma = P_gamma * (1.0 - P_berr * Pberr) ; 
gamma = MAX (gamma, MIN_VAL) ; 
gamma = MIN (gamma, MAX_DEL) ; 

Bserr = P_Bserr_l * qd3; 

Bserr = MAX (Bserr, MIN_BSERR) ; 

rho *= anc->lambda * SQRTF ( (Bserr_l / Bserr) * (gamma / gamma_l) ) ; 

rho += berr * err; 

rho = MAX (rho, MIN_RHO) ; 

rho = MIN (rho, MAX_RHO) ; 

N_err = err - rho * berr; 

} 

p = (FLO AT 3 2 *) & (anc->cells[output_cell /* *ANC_CELL_SIZE */]); 
return (N err) ; 



/* 



QRD 



/include <stdlib.h> 
/include <math.h> 

#define TRUE 
#define FALSE 

/define FLOAT 3 2 
#define INT32 
/define VOID 

/define FABSF 
/define SQRTF 



APPENDIX D 
*/ 



1 
0 

float 
long int 
void 

f abs 
sqrt 



typedef struct { 

INT32 dummy; 
} LQRDJPEF_CONTEXT; 

typedef LQRDJPEF_CONTEXT * LQRDJPEFHandle; 



extern LQRDJPEFHandle 
LQRDJPEF_Init ( 

INT32 

FLO AT 3 2 

FLO AT 3 2 

FLO AT 3 2 

FLO AT 3 2 



NumCells, 
Lambda , 
SumErrlnit, 
Gamslnit, 
MinSumErr) ; 



extern VOID 
LQRDJPEF_Done ( 

LQRDJPEFHandle hJPE) ; 

extern VOID 
LQRDJPEF_Reset ( 

LQRDJPEF_Handle hJPE) ; 

extern FLOAT 3 2 

LQRDJPEF_Calc( 

LQRDJPEF_Handle hJPE, 
FLOAT 3 2 nps, 
FLOAT 3 2 noise); 



/* handle 

/* noise plus signal 
/* noise reference 



/define MAX(a,b) (a) > (b) ? (a) : (b) 
/define MIN(a,b) (a) < (b) ? (a) : (b) 



/define LQRDJPEF_CELL_SIZE 27 
typedef struct { 



FLOAT3 2 


sinf , 


sinf_ 


1 


/ 


FLOAT32 


sinb , 


sinb_ 


[l 


r 


FLO AT 3 2 


cosf , 


cosf_ 


1 


* 
t 


FLOAT32 


cosb , 


cosb_ 


[l 


f 



FLO AT 3 2 epsf; 



FLO AT 3 2 epsb , epsb_l 

FLOAT 3 2 pief , pief_l 
FLO AT 3 2 pieb , pieb 1 



FLO AT 3 2 Fserr, FserrJL, SQRTF_Fserr, SQRTF_Fserr_l ; 

FLO AT 3 2 BserrJL, BserrJ, SQRTFJ3serr_l , SQRTFJ3serr_2 ; 

FLO AT 3 2 p_l, p_2; 

FLO AT 3 2 gams_l; 

FLO AT 3 2 epsi_l; 



} LQRDJPEF_CELL; 

typedef struct { 

INT32 

FLO AT 3 2 

FLO AT 3 2 

FLO AT 3 2 

FLO AT 3 2 

FLOAT 3 2 

FLOAT 3 2 

LQRD J P EF_C ELL 
} LQRD JPEF_Context ; 



NumCells; 
Lambda ; 
SuraErrlnit; 
Gamslnit; 
MinSumErr; 
SQRTF_Lambda ; 
SQRTF_SumErr Init ; / * 
*cells; /* 



/* 
/* 
/* 
/* 
/* 
/* 



number of cells 
Lambda 

Initial value for Fserr, Bserr 
Initial value for gams 
Minimum for Fserr, Bserr 
square root of Lambda 
square root of SumErrlnit 
point to array of JPE CELLS 



/* 



The following macros provide efficient access to the lattice 
Define variables offsets within structure 



/define xSINF 0 

/define xSINFl 1 

/define xSINB 2 

/define xSINB_l 3 

/define xCOSF 4 

/define xCOSF_l 5 

/define xCOSB 6 

/define xCOSB_l 7 

/define xEPSF 8 

/define xEPSB 9 

/define xEPSB_l 10 

/define xPIEF 11 

/define xPIEF__l 12 

/define xPIEB 13 

/define xPIEB_l 14 

/define x FSERR 15 

/define xFSERR_l 16 

/define xSQRTF_FSERR 17 

/define xSQRTF_FSERR_l 18 

/define xBSERR_l 19 

/define xBSERR_2 20 

/define xSQRTF_BSERR_l 21 

/define xSQRTF BSERR 2 22 



/define xp__l 
/define xp 2 



23 
24 



1 

/define xGAMSQ_l 25 
#define xEPSI 1 26 



#define sinf (*(ptr 

/define sinf_l (*(ptr 

/define P_sinf (*(ptr 

/define P_sinf_l (*(ptr 

/define sinb (*(ptr 

/define sinb_l (*(ptr 

/define P_sinb (*(ptr 

#define P_sinb_l (*(ptr 

/define cosf (*(ptr 

/define cosf_l (*(ptr 

/define P_cosf (*(ptr 

/define P_cosf_l (*(ptr 

/define cosb (*(ptr 

/define cosbl (*(ptr 

/define P_cosb (*(ptr 

/define Pcosbl (*(ptr 

/define epsf (*(ptr 

/define Pepsf (*(ptr 

/define epsb (*(ptr 

/define epsb_l (*(ptr 

/define Pepsb (*(ptr 

/define P_epsb_l (*(ptr 

/define pief (*(ptr 

/define pief_l (*(ptr 

/define Ppief (*(ptr 

/define P_pief_l (*(ptr 

/define pieb (*(ptr 

/define pieb_l (*(ptr 

/define Ppieb (*(ptr 

/define P_pieb_l (*(ptr 



+ XSINF)) 
+ xSINFl) ) 

+ XSINF - LQRDJPEF_CELL_SIZE) ) 
+ XSINF_1 - LQRDJPEF_CELL_SIZE) ) 

+ XSINB)) 
+ XSINB1)) 

+ XSINB - LQRDJPEF_CELL_SIZE) ) 

+ XSINB_1 - LQRDJPEFCELLSIZE) ) 

+ XCOSF)) 
+ XC0SF1) ) 

+ XCOSF - LQRDJPEF_CELL_SIZE) ) 

+ xCOSF_l - LQRDJPEF_CELL_SIZE) ) 

+ XCOSB)) 
+ XCOSB1)) 

+ XCOSB - LQRDJPEF_CELL_SIZE) ) 

+ xCOSB_l - LQRDJPEF_CELL_SIZE) ) 

+ XEPSF)) 

+ XEPSF - LQRD JPEF_CELL_S I Z E ) ) 

+ XEPSB) ) 
+ XEPSB_1) ) 

+ XEPSB - LQRDJPEF_CELL_SIZE) ) 
+ XEPSB_1 - LQRDJPEF_CELL_SIZE) ) 

+ XPIEF) ) 
+ xPIEF_l)) 

+ XPIEF - LQRDJPEF_CELL_SIZE) ) 
+ XPIEF_1 - LQRDJPEF_CELL_SIZE) ) 

+ XPIEB) ) 
+ XPIEB_1)) 

+ XPIEB - LQRDJPEF_CELL_SIZE) ) 

+ XPIEB 1 - LQRDJPEF_CELL_SIZE) ) 



/define 


Fserr 




(*(ptr 




#def ine 


Fserr_l 




(*(ptr 




#def ine 


P__Fserr 




(*(ptr 


+ 


/define 


P_Fserr_l 




(*(ptr 


+ 


#def ine 


SQRTF_Fserr 




(*(ptr 


+ 


/define 


SQRTF_Fserr_l 




(*(ptr 


+ 


/define 


SQRTF_P_Fserr 




(*(ptr 


+ 


#def ine 


SQRTF_P_JFserr_ 


1 


(*(ptr 


+ 


#def ine 


Bserr__l 




(*(ptr 


+ 


/define 


Bserr_2 




(*(ptr 


+ 


/define 


P_Bserr_l 




(*(ptr 


+ 


/define 


P_Bserr_2 




(*(ptr 


+ 


/define 


SQRTF_Bserr_l 




(*(ptr 


+ 


/define 


SQRTF_Bserr_2 




(*(ptr 


+ 


/define 


SQRTF_P_Bserr_ 


1 


(*(ptr 




/define 


SQRTF P Bserr 


~2 


(*(ptr 


+ 



XFSERR) ) 
XFSERR_1) ) 

XFSERR - LQRDJPEF_CELL_SIZE) ) 
XFSERR1 - LQRDJPEFCELLSIZE) ) 
XSQRTF_FSERR) ) 
XSQRTF_FSERR_1) ) 

XSQRTFFSERR - LQRDJPEFCELLSIZE) ) 
xSQRTF_FSERR_l - LQRDJPEF_CELL_SIZE) ) 

xBSERR_l) ) 
XBSERR_2) ) 

XBSERR_1 - LQRDJPEF_CELL_SIZE) ) 
XBSERR_2 - LQRDJPEF_CELL_SIZE) ) 
XSQRTF_BSERR_1) ) 
XSQRTF_BSERR_2) ) 

XSQRTF_BSERR_1 - LQRDJPEF_CELL_SIZE) ) 
XSQRTF BSERR 2 - LQRDJPEF CELL SIZE) ) 



/define p_l 
/define p_2 
/define P_p_l 
/define P_P_2 

/define gams_l 
/define P_gams_l 

/define epsi_l 
/define P_epsi_l 

Static FLOAT3 2 
RSQRTF( 

FLO AT 3 2 X) { 



(*(ptr + xp_l)) 
(*(ptr + xp_2)) 
(* (ptr + xp_l 
(* (ptr + xp_2 



- LQRDJPEF_CELL_SIZE) ) 

- LQRDJPEF_CELL_SIZE) ) 



(*(ptr + xGAMSQ_l)) 

(*(ptr + xGAMSQ_l - LQRDJPEF CELL_SIZE) ) 
(*(ptr + xEPSI_l)) 

(*(ptr + xEPSI_l - LQRDJPEF_CELL_SIZE) ) 



return 1.0F / SQRTF(x) ; 



Name 
Abstract 



LQRDJPEF_Init 
Create a JPE context 



extern LQRDJPEF_Handle 

LQRDJPEF_Init( 

INT32 NumCells, 

FLO AT 3 2 Lambda, 

FLOAT 3 2 SumErr In it , 

FLOAT 3 2 Gamslnit, 

FLO AT 3 2 MinSumErr) { 



LQRD JPEF_Cont ext * j pe ; 

jpe = malloc (sizeof (LQRDJPEF_Context) ) ; 
assert (jpe != NULL) ; 

jpe->NumCells = NumCells; 

jpe->Lambda = Lambda; 

jpe->SumErrInit = SumErrlnit; 

jpe->GamsInit = Gamslnit; 

jpe->MinSumErr = MinSumErr; 

jpe->SQRTF_Lambda = SQRTF( jpe->Lambda) ; 

jpe->SQRTF_SumErrInit = SQRTF ( jpe->SumErrInit) ; 

jpe->cells = malloc (sizeof (LQRDJPEF_CELL) * (NumCells + 2)); 
assert (jpe->cells != NULL) ; 

LQRDJPEF_Reset ( (LQRDJPEF_Handle) jpe) ; 
return ( (LQRDJPEF_Handle) jpe) ; 



/* 

Name : LQRDJPEF_Done 

Abstract : Delete a JPE context 



extern VOID 
LQRDJPEF Done( 



LQRDJPEFHandle 

LQRDJPEFContext 

f ree ( jpe->cells) ; 
free(jpe) ; 



hJPE) { 

*jpe = ( LQRD JPEF_Context *)hJPE; 



Name 
Abstract 



LQRDJPEF_Reset 
Reset a JPE context 



extern VOID 
LQRDJPEFReset ( 

LQRDJPEF Handle 



} 

/* 



hJPE) { 

LQRDJPEF_Context *jpe = ( LQRD JPEF_Context *)hJPE; 



FLOAT 3 2 
INT32 



*ptr; 



ptr = (FLOAT32 *) jpe->cells; 

for (m = 0; m <= jpe->NumCells ; m++) { 



sinf 




O.OF; 


sinb 




O.OF; 


cosf 




O.OF; 


cosb 




O.OF; 


epsf 




O.OF; 


epsb 




O.OF; 


pief 




O.OF; 


pieb 




O.OF; 


P_l 




O.OF; 


Fserr 




jpe->SumErrInit ; 


Bserr 1 




jpe->SumErrInit ; 


gams_l 




jpe->GamsInit; 



SQRTFFserr = jpe->SQRTF_SumErrInit ; 
SQRTF_Bserr_l = jpe->SQRTF_SumErrInit; 



ptr += LQRDJPEF_CELL_SIZE; 
} 

ptr = (FLOAT3 2 *) jpe->cells ; 
gams_l = 1.0F; 



/* Cell # 0 special case 



Name 
Abstract 



LQRDJPEF Calc 



extern FLOAT3 2 
LQRDJPEF_Calc( 

LQRDJPEF_Handle hJPE, 

FLOAT32 nps, /* noise plus signal */ 

FLOAT32 noise) { /* noise reference */ 

LQRDJPEF_Context *jpe = ( LQRD JPEF_Context *)hJPE; 



INT32 



m; 



FLO AT 3 2 *ptr; 
FLOAT 3 2 tmp; 

Time update section */ 

ptr = (FLOAT32 *) jpe->cells; 

for (m = 0; m <= jpe->NumCells; m++) { 

/* some of following delay elements are not needed */ 

sinf_l = sinf; 

sinb_l = sinb; 

cosf_l = cosf; 

cosb_l = cosb; 

epsb_l =s epsb; 

pief_l = pief ; 

pieb_l = pieb; 

Fserr_l = Fserr; 
Bserr_2 = BserrJL; 
P_2 = p_i; 

SQRTF__Bserr_2 = SQRTF__Bserr_l ; 
SQRTF_Fserr_l = SQRTF_Fserr; 

ptr += LQRDJPEF_CELL_SIZE; 
} 

/* Order update section */ 
/* Handle Cell #0 */ 

ptr « (FLO AT 3 2 *) ( jpe->cells) ; /* point to cell # 0 */ 
epsf = noise; 
epsb = noise; 
epsi_l = nps; 

/* rest of cells */ 

for (m = 1; m < jpe->NumCells; m++) { 

ptr += LQRDJPEF_CELL_SIZE; /* access next cell */ 

/* Prediction section */ 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsbJL * P_epsb_ 
P_Bserr__l = MAX(P_Bserr_l, jpe->MinSumErr) ; 
SQRTF_P_Bserr_l = SQRTF(P_Bserr_l) ; 

tmp = RSQRTF(P_Bserr_l) ; /* this comes free on DSP */ 

P_cosb_l = jpe->SQRTF_Lambda * SQRTF_P_Bserr__2 * tmp; 

P_sinb_l = P_epsb_l * tmp; 

tmp = jpe->SQRTF_Lambda * P_pief_l; 

epsf = P_cosb_l * P_epsf - P_sinb_l * tmp; 

P_pief = P_cosb_l * tmp + P sinb 1 * P epsf; 

gams 1 = P cosb 1 * P gams 1; 



PFserr = jpe->Lambda * P_Fserr_l + P_epsf * P_epsf; 
P_Fserr = MAX(P_Fserr, jpe->MinSumErr) ; 

SQRTF_P_Fserr = SQRTF(P_Fserr) ; 

tmp = RSQRTF (P_Fserr) ; /* this comes free on DSP */ 
P_cosf = jpe->SQRTF_Lambda * SQRTF_P_Fserr_l * tmp; 
P_sinf = P_epsf * tmp; 

tmp = jpe->SQRTF_Lambda * P_pieb_l; 

epsb = P_cosf * P_epsb_l - P_sinf * tmp; 

P_pieb = P_cosf * tmp + P_sinf * P_epsb_l; 

/* Joint Process Estimation section */ 

tmp = jpe->SQRTF_Lambda * P_p_2 ; 

epsi_i = P_cosb_l * P_epsi_l - p_sinb_i * tmp; 
P-P- 1 = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

} 

ptr += LQRDJPEF_CELL_SIZE; /* access next cell */ 

/*. Do minimum work for JPE of very last cell 

only four equations are required for prediction section 

P_Bserr_l = jpe->Lambda * P_Bserr 2 + P epsb 1 * p epsb 1- 
P_Bserr_l = MAX(P_Bserr_l, jpe->MTnSumE?r) ; ~ ~ ' 

SQRTF_P_Bserr_l = SQRTF (P_Bserr_l) ; 

tmp = RSQRTF (P_Bserr_l) ; /* this comes free on DSP */ 
P_cosb_l = jpe->SQRTF_Lambda * SQRTF_P_Bserr_2 * tmp; 
P_sinb_l = P_epsb_l * tmp; 

/* Joint Process Estimation for last cell */ 
tmp = jpe->SQRTF_Lambda * P_p_2; 

epsi_l = P_cosb_l * P_epsi_l - Psinbl * tmp; 
P-P- 1 = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

gams_l = P_cosb_l * P_gams_l; 
return (gams_l * epsi_i) ; 



